home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / cmplngmg / cl_jun89.arc / AWK210.ARC / ENARC.AWK < prev    next >
Text File  |  1988-08-16  |  167b  |  8 lines
  1. BEGIN { arcfile = ARGV[1]; delete ARGV[1] }
  2. FILENAME != filename {
  3.     print ("-ARCHIVE-", FILENAME) >arcfile
  4.     print filename = FILENAME
  5. }
  6. {print >arcfile}
  7.  
  8.